www.gusucode.com > 酷维企业网站CMS管理系统 v2.1.0 > 酷维企业网站CMS管理系统 v2.1.0\code\Admin\Fun.asp
<% '****************** '取得酒店名称 '****************** Function GetHotelName(ZZID) if trim(ZZID)="" then exit Function end if set rec=server.createobject("adodb.recordset") strsql="select c_name from hotelb where Id=" & ZZID & "" rec.open strsql,conn,1,1 If Not rec.Eof Then GetHotelName=rec("c_name") Else GetHotelName="" End IF rec.close End Function '****************** '取得房型名称 '****************** Function GetRoomName(ZZID) if trim(ZZID)="" then exit Function end if set rec=server.createobject("adodb.recordset") strsql="select type from roomb where Id=" & ZZID & "" rec.open strsql,conn,1,1 If Not rec.Eof Then GetRoomName=rec("type") Else GetRoomName="" End IF rec.close End Function %>